home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / DBAPPMON.ZIP / FORM2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-06-29  |  2.0 KB  |  65 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Version info"
  5.    ClientHeight    =   3615
  6.    ClientLeft      =   1305
  7.    ClientTop       =   3075
  8.    ClientWidth     =   6525
  9.    Height          =   4020
  10.    Left            =   1245
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3615
  13.    ScaleWidth      =   6525
  14.    Top             =   2730
  15.    Width           =   6645
  16.    Begin CommandButton Command1 
  17.       BackColor       =   &H00C0C0C0&
  18.       Cancel          =   -1  'True
  19.       Caption         =   "Close"
  20.       Height          =   372
  21.       Left            =   5160
  22.       TabIndex        =   2
  23.       Top             =   3180
  24.       Width           =   1212
  25.    End
  26.    Begin TextBox Text1 
  27.       Height          =   2652
  28.       Left            =   60
  29.       MultiLine       =   -1  'True
  30.       ScrollBars      =   2  'Vertical
  31.       TabIndex        =   1
  32.       Top             =   480
  33.       Width           =   6432
  34.    End
  35.    Begin ComboBox Combo1 
  36.       Height          =   288
  37.       Left            =   60
  38.       Style           =   2  'Dropdown List
  39.       TabIndex        =   0
  40.       Top             =   120
  41.       Width           =   6432
  42.    End
  43. Option Explicit
  44. Sub Combo1_Click ()
  45.   Dim S As String, V As String, i As Integer
  46.   V = Form1.DBAppMon1.VerLanguageName(Combo1.ListIndex)
  47.   V = "Comments,CompanyName,FileDescription,FileVersion,InternalName,LegalCopyright,LegalTrademarks,OriginalFilename,PrivateBuild,ProductName,ProductVersion,SpecialBuild,"
  48.     i = InStr(V, ",")
  49.     Form1.DBAppMon1.VerQueryValue = Left$(V, i - 1)
  50.     S = S + Left$(V, i - 1) + ": """ + Form1.DBAppMon1.VerQueryValue + """" + Chr$(13) + Chr$(10)
  51.     V = Mid$(V, i + 1)
  52.   Loop Until Len(V) < 2
  53.   Text1 = S
  54. End Sub
  55. Sub Command1_Click ()
  56.   Unload Me
  57. End Sub
  58. Sub Form_Load ()
  59.   Dim i As Integer
  60.   For i = 0 To Form1.DBAppMon1.VerLanguages - 1
  61.     Combo1.AddItem Mid$(Form1.DBAppMon1.VerLanguageName(i), 10)
  62.   Next
  63.   Combo1.ListIndex = 0
  64. End Sub
  65.